■ クリップボード内の文字列から改行を消す ■

クリップボードに文字列を切り取りやコピーをすると、自動的にその文字列から改行だけを消去します。

//---クリップボードから改行を消す
//変数宣言の強制
OPTION EXPLICIT

//変数を宣言
Dim ClipBoard, ClipBoardtmp;

ClipBoard = GETSTR(0)
ClipBoardtmp = GETSTR(0)

while True
    //クリップボードの内容を取得
    ClipBoard = GETSTR(0)

    //前回の内容と違うなら実行
    ifb ClipBoard <> ClipBoardtmp
        //クリップボードから改行コードを消す
        ClipBoard=chgmoj(ClipBoard,"<#CR>","")
        //クリップボードに戻す
        SENDSTR(0, ClipBoard)
        //tmpに複写
        ClipBoardtmp=ClipBoard
    endif

    sleep(0.2)
wend